function [fl,re]=lines(aa)

aa=clip(aa);
r=size(aa,1);
for s=1:r
    if sum(aa(s,:))==0
        nm=aa(1:s-1,1:end);
        rm=aa(s:end,1:end);
        fl=~clip(~nm);
        re=~clip(~rm);

        break
    else
        fl=~aa;
        re=[];
    end
end